unit WSCstFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzCommon;

type
  TWSCustomForm = class(TForm)
    FrameController: TRzFrameController;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  protected
     procedure iniForm;virtual;
  public
    { Public declarations }
  end;

implementation
     uses Unit1, CommonDM;
{$R *.dfm}

procedure TWSCustomForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if FormStyle = fsMDIChild then Action := caFree;
end;

procedure TWSCustomForm.iniForm;
begin
  FormMain.ModuleIfTrue(CommonData.qry1,Self);
end;

procedure TWSCustomForm.FormCreate(Sender: TObject);
begin
   iniForm;
end;

end.
